home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 23 / AACD 23.iso / AACD / Programming / tek / kn / elate / visual / drawtext.asm < prev    next >
Encoding:
Assembly Source File  |  2001-05-12  |  1.3 KB  |  50 lines
  1.  
  2.     .include 'taort'
  3.     .include 'ave/toolkit/toolkit.inc'
  4.     .include 'lib/tek/kn/elate/visual.inc'
  5.     .include 'ave/font/style.inc'
  6.  
  7. ;=============================================================================
  8. ;-----------------------------------------------------------------------------
  9. ; 
  10. ;    TEKlib
  11. ;    (C) 1999-2001 TEK neoscientists
  12. ;    all rights reserved.
  13. ;
  14. ;    TVOID kn_drawtext(TAPTR v, TSTRPTR text, TINT x, TINT y, TINT length)
  15. ;
  16. ;-----------------------------------------------------------------------------
  17. ;=============================================================================
  18.  
  19.     tool 'lib/tek/kn/visual/drawtext',VP,TF_EMBED
  20.  
  21. ;-----------------------------------------------------------------------------
  22.  
  23.     ent p0 p1 i0 i1 i2 : -
  24.  
  25.     defbegin
  26.     defp visual,text
  27.     defi x,y,len
  28.     defp font,pixmap
  29.     defi bgcol,fgcol
  30.  
  31.         cpy.p    [visual+vis_font],font
  32.         cpy.p    [visual+vis_pixmap],pixmap
  33.         
  34.         cpy.i    [visual+vis_bgcolor],bgcol
  35.         cpy.i    [visual+vis_fgcolor],fgcol
  36.  
  37.         cpy.i    [visual+vis_fontwidth]*x,x
  38.         cpy.i    [visual+vis_fontheight]*y,y
  39.  
  40.         ncall    font,strnprint,(font,pixmap,text,0.p,x,y+2,fgcol,bgcol,TRF_INK+TRF_PAPER,len:i~,i~)
  41.         
  42.         ret
  43.         
  44.     defend
  45.  
  46.     toolend
  47.  
  48. ;-----------------------------------------------------------------------------
  49. ;=============================================================================
  50.